﻿Public NotInheritable Class StandardControlOutput
    Implements IControlOutput


    Private m_simInput As SimulateInput

    Public Sub New()
        m_simInput = New SimulateInput()
    End Sub

    Public Sub TypeString(ByVal k As String) Implements IControlOutput.TypeString
        SendKeys.Send(k)
    End Sub

    Public Sub SetMouseButtonState(ByVal button As System.Windows.Forms.MouseButtons, ByVal state As Boolean) Implements IControlOutput.SetMouseButtonState
        m_simInput.SetMouseButtonState(button, state)
    End Sub

    Public Function MoveMouse(ByVal pt As System.Drawing.PointF) As Boolean Implements IControlOutput.MoveMouse
        Return m_simInput.MoveMouse(pt)
    End Function
End Class
